home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / S-Super PET / (s)t2.d64 / PRINT.FILE < prev    next >
Text File  |  2009-01-18  |  1KB  |  48 lines
  1.    10 !  Program print.file
  2.    20 !
  3.    30 input "File to be printed:",file_name$
  4.    40 open #8,file_name$,input 
  5.    50 open #4,"ieee4",output 
  6.    60 lines_per_page%=66 : max_lines%=60 : max_length%=80
  7.    70 line%=0 : page%=1
  8.    80 lines_to_text%=3
  9.    90 !
  10.   100 on eof ignore 
  11.   110 call print_header
  12.   120 loop 
  13.   130    linput #8,x$
  14.   140    if io_status = 2 then quit 
  15.   150    print #4,x$
  16.   160    line%=line%+1
  17.   170    if line% > max_lines%
  18.   180        loop 
  19.   190           print #4
  20.   200           line%=line%+1
  21.   210           if line%=lines_per_page% then quit 
  22.   220        endloop 
  23.   230        page%=page%+1 : line%=0
  24.   240        call print_header
  25.   250    endif 
  26.   260 endloop 
  27.   270 !
  28.   280 close #8
  29.   290 close #4
  30.   300 stop 
  31.   310 !
  32.   320 proc print_header
  33.   330    header$=""
  34.   340    for i% = 1 to max_length%
  35.   350       header$=header$+" "
  36.   360    next i%
  37.   370    header$(1:len(file_name$))=file_name$
  38.   380    page_number$= "Page " +  value$(page%)
  39.   390    header$(max_length%-len(page_number$):max_length%)=page_number$
  40.   400    print #4,header$
  41.   410    line%=line%+1
  42.   420    loop 
  43.   430       print #4
  44.   440       line%=line%+1
  45.   450       if line% > lines_to_text% then quit 
  46.   460    endloop 
  47.   470 endproc 
  48.